home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +tv toob (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.2 KB  |  27 lines
  1. 1 c0=5:c1=2:c2=6:c3=0:sp=1
  2. 2 poke53281,0:poke53280,11:print"[147][142]please wait..."
  3. 3 print"use the joystick firebutton":print"to pause the graphics."
  4. 5 fora=12288toa+2047:pokea,int(rnd(1)*256):next:poke53269,0
  5. 6 gosub500
  6. 7 poke646,(c3and7)+8:poke53281,(c3and7)+8:print"[147]":poke53281,c0:poke53272,29
  7. 10 poke53270,216:poke53282,c1:poke53283,c2:poke53280,0
  8. 50 poke54272,0:poke54286,128:poke54287,128:poke54290,128:sys49152
  9. 60 wait56320,16:wait56320,16,16:wait56320,16:goto50
  10. 490 end
  11. 500 fora=0to2:l=832+a*64:poke2040+a,13+a:poke53287+a,sp:poke53249+a*2,0
  12. 510 poke53248+a*2,120+a*48
  13. 520 readb:ifb<>-1thenpokel,b:l=l+1:goto510
  14. 530 next:l=49152
  15. 540 readb:ifb<>-1thenpokel,b:l=l+1:goto540
  16. 590 poke53277,7:poke53276,0:poke53269,7:return
  17. 900 data 126,102,0,24,102,0,24,102,0,24,102,0,24,102,0,24,60,0,24,24,0,0,0,0,-1
  18. 905 data 126,60,60,24,102,102,24,102,102,24,102,102,24,102,102,24,102,102
  19. 910 data 24,60,60,0,0,0,120,126,99,108,96,119,102,96,127,102,120,107,102,96,99
  20. 915 data 108,96,99,120,126,99,0,0,0,-1
  21. 920 data124,0,0,102,0,0,102,0,0,124,0,0,102,0,0,102,0,0,124,0,0,0,0,0
  22. 925 data 60,0,0,102,0,0,102,0,0,102,0,0,102,0,0,102,0,0,60,0,0,0,0,0,-1
  23. 950 data 120,162,0,173,27,212,157,0,4,173,27,212,157,0,5,173
  24. 960 data 27,212,157,0,6,173,27,212,157,232,6,232,208,229,173,17
  25. 970 data 208,41,128,240,249,238,1,208,238,3,208,238,5,208,173,0
  26. 980 data 220,41,16,208,204,88,96,0,0,0,0,0,-1
  27.